TARDE O TEMPRANO 
\>^^ TENIAMOS QUE SUPERARNOS 

Si en su día el Ensamblador/Desensamblador RSC fue acogido como el mejor ensamblador/ 
desensamblador para MSX, no hay duda que el Macro-Ensamblador/Linkador RSC II hará historia en 
el mundo de los MSX. Ahora puede programarse en ensamblador para MSX con la misma comodidad 
que disfrutan los usuarios de PC, ATARI o AMIGA. 

Además de las espectaculares prestaciones RSC (acceso a todos los slots y subslots de la máquina, 
anidación de macros, pantalla de 80 columnas, etc), el RSC II posee innumerables mejoras: 

- Desde un solo editor se controla todo el programa (ensamblar, desensamblar, linkar, simular, 
volcar memoria, etc). 

- Listado del DIRectorio del disco, con el tamaño en bytes, fecha y hora de grabación de los 
ficheros, etc. 

- Nuevo comando para mover bloques de líneas dentro del fiechro de texto (código fuente). 

- Nuevos comandos para disco (borrar, renombrar ficheros, etc). 

- Grabación y carga de ficheros en formato COM o SYS (para programas que tengan que trabajar 
desde el MSX-DOS). 

- Nueva y amplia pantalla de control para el Simulador/Depurador (visuahzacion constante de 
TODOS los registros). _ 

- Muchos más comandos para el Simulador que permiten depurar y/o inspeccionar cualquier 
programa. 

- Traslado de bloques de bytes de un slot (o subslot) a otro. 

- Nuevos comandos para el Ensamblador (añadir cabeceras, hacer saltos de página, detener el 

- Más pseudocomandos para el Ensamblador que facilitan la programación (IF, ENDI, etc). 

- Anidación REAL de hasta 16 macros entre sí. 

- Salto al Basic y retorno al ensamblador conservando las rutinas. 

- Mayor velocidad de ensamblado. 

- Ejecución (arranque) de programas en lenguaje máquina de cualquier slot o subslot del 
ordenador. 

- Mucha más memoria disponible para la introducción de código fuente. 

- GARANTIZADO contra cualquier defecto o anomalía de funcionamiento. 

- GARANTIZADA la compatibilidad con TODOS los ordenadores MSX-1 y MSX-2 incluido el 
Spectravideo 738 X'Press) con un mínimo de 64 Kb de memoria RAM. 

- Incluye el programa CONVERT para la conversión de ficheros fuentes de la versión anterior del 
RSC. 

- Excelente presentación del completísimo manual de instrucciones. 

- Y el nuevo comando LK que enlaza todos los ficheros fuente que componen un programa, a la 
misma velocidad que el ensamblado normal. 



iNnmhtf v anrllidn; 


X ; 


¡Dirección completa 
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sión disco sólo para RSC II) ; 


¡Para ello adjunto talón a 
mdn.ul.i, más 100 ptas. p 
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Es IMPORTANTE indicar en el sobre MSX CLUB DE MAILING 




Editorial 

SE ACABARON LAS 
CONSULTAS POR 




Y es que se ha hecho inevitable. Por las razones que exponemos rogamos 
encarecidametne a nuestros lectores que, por favor, os abstengáis de hacernos consultas 
telefónicas relacionadas con problemas que surgan con vuestros ordenadores. Necesita- 
mos el tiempo que invertimos en contestaros para elaborar MSX-CLUB y poder estar 
en los quioscos cada mes. Quien nos telefonea nos roba un tiempo preciosísimo que 
podríamos estar utilizando para dar una mejor y más amplia información a nuestros 
lectores. Por ese motivo rogamos os sirváis utilizar las secciones de la revista 
relacionadas con cualquier problema. 

Agradeciendo de antemano vuestra comprensión, pasamos a comentar por encima el 
contenido de este número. Como podéis observar estamos ante un especial de verano, 
con varias sorpresas muy refrescantes. La primera de ellas es que hemos incluido un par 
de páginas con cromos en color para el Coleccionable del Japón. La segunda se refiere al 
comentario de King Kong 2, con mapa incluido. La tercera es que estamos ante un 
número con más páginas de lo habitual, en el que todas las secciones se han extendido 
un poco más de lo que viene siendo costumbre. 

Nuestra próxima cita es en septiembre (nosotros t 
pequeñas vacaciones). Feliz verano. 
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MONITOR AL DIA 

Los últimos rumores en el merca- 
do MSX. 



DEL HARD AL SOFT 



) BRAINSTORM 

/ GLOSARIO: Diccionario pr; 
co de terminología MSX, ya en 



\l BIT-BIT 

Probando lo último de este mes: 
" Klax, Los Inhumanos, Angel Nie- 
to Pole 500, ¡Genial!, Mundial de 
fútbol, Operation Thunderbolt. 

Por fin está aquí el comentario y 
mapa del cartucho King Kong 2, tan 
esperado por nuestros lectores. 

M COLECCIONABLE 
II DEL JAPON 

Tres nuevas fichas para ese colec- 
cionable del que cada mes os venimos 



)lor de las páginas ce 
:gar en los lugares 

1 CROMOS 



SSPRITES DESDE 
CODIGO MAQUINA 

Del Concurso de Artículos Perio- 



desde código máquina. 

n CURSO DE 

14 ENSAMBLADOR 

Math-Pack, el paquete de ral 



ft\ TRUCOS Y 

qU pokes 

Ensalada de trucos y pokes para 
los gourmets de los videojuegos. 

C TRUCOS DEL 
PROGRAMADOR 
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SOLO PARA 
ADICTOS 



Ya está bien, sí, ya está bien de que una revista que ahora va 
175 ptas, que dice estar en su segunda época y que dice ser 
sólo para adictos, se dedique a hundir el sistema MSX, no 
favoreciéndolo. Desde que la norma MSX llegó a nuestro , 
revista no ha comentado casi ningún juego para el sistema (algún 
MegaROM que, en contrapartida, ha sido valorado globalmente 
un 7). Todo pueda deberse a que, quizás, sus redactores no quien 
reconocer que el MSX es muy superior al resto de máquinas de 8 
bits: el nefasto Amstrad, con esos gráficos hechos a base de ladrillos; 
el Spectrum, un ordenador casi sin sonido; o el Commodore. 

Ni que decir tiene que un MSX superior a la primera generación 
tiene mucho que decir a una Amiga o Atari ST, y de eso es de lo que 
me quejo, de que los redactores de esa revista "grande, grande" no se 
informen mejor de este sistema, para comentar, aunque sea de vez en 
cuando, algún que otro juego para los ordenadores MSX. 

Desde aquí quiero expresar mi disconformismo, junto a la 
mayoría de usuarios de MSX, para expresar esta opinión que 
tampoco tiene porque ser una crítica destructiva; sino que 
cambiando su actitud estoy seguro que adquirirían nuevos valores. 

Jorge Ruano Rueda 
(Madrid) 




guos, y artículos que se alejan un poco 
del tema MSX, aunque no están nada 
«ceptuamos la corta extensión 
as páginas)... ¡Ya quisieran en 
ses disponer de MSX-CLUB! 
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EstosTnóméi: Z"lZ 


mm 
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Stack: Ver púa 


UN LIBRO PENSADO 
PARA TODOS LOS OUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
ente editor todo pantalla. Constan- 
es numéricas. Seríes, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 




Y ADEMAS PROGRAMAS 
DE EJEMPLO 

Alfabético. Canon a tres voces 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scra- 
ple from the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 
lendario perpetuo. Modificación 
Tabla de colores SCREEN 1. Rec- 
tángulos en 3-D. Juego de caracte- 
res alfabéticos en todos los modos. 
Juego Matemático. Más grande más 
pequeño. Poker. Breackout. Apoca- 
lypse Now. El robot saltarín. El ar- 
chivo en casa. 




Nombre y apellidos n , Qudad cp 

Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envió o 

importante: indicar en el sobre MANHATTAN TRANSFER. S a 
«LOS SECRETOS DEL MSX» 
Roca i Batlle. 10-12 BajOS-08023 BARCELONA 



AVISO A LOS LECTORES: 



MANHATTAN TRANSFER, EDITORA DE LA PUBLICACION MSX-CLUB DECLINA TODA RESPONSABILIDAD 
SOBRE LA ENTREGA DE LOS PREMIOS DEL CONCURSO DE ARTICULOS PERIODISTICOS CONVOCADO Y 
ORGANIZADO POR LA EMPRESA DRO SOFT, CUYAS BASES FUERON PUBLICADAS EN EL NUMERO 59 DE 
NUESTRA REVISTA. 

INFORMAMOS QUE DRO SOFT NO HA CUMPLIDO CON LO ACORDADO EN LAS BASES, PUESTO QUE EN 
NINGUN MOMENTO NOS HA REMITIDO NINGUN TIPO DE SOFTWARE CON DESTINO A LOS CONCURSAN- 
TES PREMIADOS, TAL COMO EN SU DIA NOS HABIAN PROMETIDO. 



LAMENTAMOS PROFUNDAMENTE LAS MOLESTIAS QUE HAYAMOS PODIDO CAUSAR A LOS CONCURSAN- 
TES, QUE EN NINGUN MOMENTO SON IMPUTABLES A MSX-CLUB, YA QUE CONSIDERAMOS QUE HEMOS 
SIDO SORPRENDIDOS EN NUESTRA BUENA FE AL IGUAL QUE CUANTOS LECTORES TUVIERON A BIEN 
PARTICIPAR EN DICHO CONCURSO. DE TODO ELLO PODEMOS DEDUCIR LA ESCASA HABILIDAD QUE 
PUEDEN OFRECERNOS LOS PRODUCTOS DE UN PATROCINADOR QUE ES INCAPAZ DE CUMPLIR CON SUS 



PARA CUALQUIER RECLAMACION 
DIRIGIRSE A JESUS ALONSO 
DRO SOFT 





INDICE BIT-BIT 

(1) KLAX 

-DOMARK- 

(2) LOS INHUMANOS 

-DELTA- 

(3) ANGEL NIETO 
POLE 500 

-OPERA SPORTS- 

(4) ¡GENIAL! 

-ERBE- 

(5) MUNDIAL DE 
FUTBOL 

-OPERA SPORTS- 

(6) OPERATION 
THUNDERBOLT 



¡STOP! 

PON ATENCION A 
NUESTRA OFERTA 

SI TE PERDISTE LAS 
ANTERIORES EDICIONES DE LOS 
ALBUMES DE MEGAJOYSTICK 
AHORA AUN ESTAS A TIEMPO 
ESTA ES TU ULTIMA 
OPORTUNIDAD 
PASA POR TU QUIOSCO Y 
LLEVATE LA EDICION ESPECIAL 
DE DOS ALBUMES 
MEGAJOYSTICK 

ESTA OFERTA SOLO CUESTA 695 
PTAS. Y ESTARA DISPONIBLE TODO EL 
VERANO 



¡NOTE LA PIERDAS! 



Programa 



DISCl 



10 ' **•* UTILIDAD DISCO *** 
20 ' *** JORDI VELA GIRAL *** 
30 ' *** PARA WMSX CLUBW *** 
40 SCREENO : COLOR 7 , 1 . I : W I DTH30 
50 CLEAR 2000: POKE !<HFD9F, 8<HC9 
60 OPEN "GRP: " FOR OUTPUT AS #1 
70 DI M NN*<112> ,SE(112) ,LD(112) ,T 



" LEER DIRECTORIO 
'DIBUJAR PANTALLA 
'DIBUJAR SECTORES 



130 GOSUB 960 
140 GOSUB 121C 
150 QN KEY GOSUB í 
GINIMI 




1 60 KEY ( 1 



ON 



»RESET (30,200) : PRINT #1, "Fl- 
HANGE DISC 

180 Z*=INKEY*:IF Z*="" OR Z*=" " 

HEN 180 

190 GOTO 130 



230 LOCATE 26 , 1 2 ; PR I NT " y JMCCR7 

NEW DI5C AND V 
240 LOCATE 26. I3:PRINT"V 
V 

250 LOCATE 26, 14: PRINT" V BTRIKE f 
<EY WHEN READY V 

260 LOCATE 26. 15: PRINT"ZWWWWWWWWWW 
4WWWWWWWWWWWWWWL' 

270 N*=INKEYÍ:IF N*="" THEN 270 
:bo RETURN 

290 ' LEER DIRECTORIO 
:•("'' SCREEN O 

310 LOCATE 26, 1 1 : PRINT " XWWWWWWWW 



370 FOR I=SD TO SD<~6 
3 A*=DSKI*(1, I) 
390 FOR K-0 TO 511 STEP 37 
5 A*="" 

:> IF PEEK(BUHO<32 THEN S 



P+CHR*(PEEK(BU+K+ 



20 LOCATE 26. 12: PRINT "V PEABING D 
RECTORY V 

30 LOCATE 26, 13: PRINT "ZWWWWWWWWWW 
40 BU=PEEK<S..HP351) < 256*PEEK ¡!<HF35 



NEXT J 

NN*(NO)=A* 

J=PEEK(BU+K+26) 

J=J*2+SD+3 

SE ( NO ) = J t < PEEK ( BU#t 



N0=N0<-1 
570 NEXT K 
500 NEXT I 

590 NCMM0-1 'acabar de LEE 
600 C=6!X=2:Y=4 

> GOSUB 1330 
620 FOR RG=1 TO NO 

INI=SE(RG) sFIN=INT(£ 
OÍRG) /512.) ) 

LOCATE X, Y: PRINT NM 



; INI; ' 



";FI 



26 



ATENCION 
A NUESTROS PROXIMOS 
COLECCIONARLES!!! 

DOS ENTREGAS DEL MAPA 
DE SPACE MANBOW, 
FICHAS EN COLOR, 
Y NUEVAS COLABORACIONES 
QUE HARAN MAS AMENA 
LA SECCION MAS ESPERADA 
DE MSI CLUB 



msxciub 



NOMBRE : QUARTH FORMATO : cartucho 

COMPAÑIA: KONAMI MSX: 2' generación y + 



TIPO: Habilidad 





NOMBRE : MR. GHOST FORMATO : cartucho 

COMPAÑIA: SYSTEM SACOM MSX:2' generación y + 




-IT+1:NEXT 

,60 IF C= 
i THEN C=6 



Y=4: G03UB , 



=INI Tü FIzTI <I)=C:FIT= 
& THEN 013 EL3E IF C-l 
: IF Y=19 T1IEM Y=4: X = X 1-2 
:G=45 THEN FjDSUB 1420: X=2 



670 



TOTAL SECTOR 
FREE C 



H LOCATE 0,20: PR 
S OCUPED: ";FIT 
710 LOCATE 0,21:PR 
LUSTEREG: " ; DSKF < 1 ! 
720 50SLIB 1420'SUDROUTINE TECLADO 
BIS 



----CNR* (S.POO0 10000) i CU 
+CHR*<Í..B01111100) t-CH 
i-CHR$?Í..D00111000)+CH 
*C!IRÍ(!<B001 11000) : CU 



60 SPRITC* 
$ (ÍíBOOI 110 
R*<&B1111 1110: 
R* (!<E00 1.11 ooo : 
R*<8cB0O1110OO: 
l Y=15:3C=0: 



700 



IF MA=143<; 
1=15 TO R STEP i 



, 105) , 10, B 

13) ,7,B 
\, 130) ,7, B 
i,180),4,B 
», 179) ,5,B 
i, 1B0) ,4,B 



700 PRESETU20, 3):PRINT \ 

710 PRESET<10,120> üPRINT « 



:<> SCT ! 10. 100) i PRINT t 
SECTOR " 

o PRFSFTOO, 170) :.PPINT t 



, "Secto 

"Read 



TilEN \ 
? OR t 



X>226 THEN X-226 

A=4 OR A=5 OR A- ' 
O !02 THEN Y=»102 
" A -6 PR A- 7 OR A- E 
«23 THEN X*=28 
JT SPRITC 1. IX. Y), 1 



AND CPOINTC 



SECTORES 

iioo r-c=i 

1) 10 POR ¥-16 ro t44 3TEr ,'• 
1120 POR X<=30 TO 228 STEP 
1130 IF TI (SC) i) o TREN fe 

) EL. SE C=15 

5CM0D10i=0 rHÉN 



íao. 



sc-sci i: ir sc:-r 

1170 
1170 NEXT X 
11B0 NEXT Y 

1170 LJNE<1B0,3) -<222, 1C 
SETUB0,3) iPPINT #1,SC 



1230 PRE!:!ET( 1.10, 120) ,:PRINT #1,SC 
1240 FOR 1=1 TO NO 

1250 IF SC<=SEU> THEN 1 = 1-1 :G( 
TO 1270 
1260 NEXT I 



LO(I) 



1270 PRESETí 135, 150) :PRINT #1 , NN* ( 
I) 

1300 PRESETU35. 160):PRINT «l.INI 
1310 PRESET ( 1 35 . 1 70 ) : PR I NT « ! , F I 
1320 RETURN 

1330 'Dibujo pantalla bi= 
1340 CLS 

1350 LOCATE O, O : PR I NT " XWWWWWWWWWWW 





SUSCRIBETE A ES 

Suscribiéndote no sólo tienes la seguridad de tener todos los meses tu 
MSX CLUB DI- PROGRAMAS en tu casa sino que recibirás 12 
>s pagando sólo 10 




Importante: Colocar en el sobre: Departamento Suscripciones 



RpcaiBatlIe, 10-12 - 08023 Ba 
España por correo normal Ptas. 3.750,- 
Europa por correo aéreo Ptas 6.500,-'- 
aéreo USAS 62- 

MSX CLUB. NO SE ADMITE CONTRAREEMBOLSO. 
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Programa ■ 



■ Por Gustavo Jerónimo 



BASRET 



BASKET 
GUSTAVO JERONIMO 
?0-l 1-1989 ARANJUEZ 



100 OPEN"GRP: "AS#1 : DEFINTA-W: DEFSNG 
(:C0L0R 12,3,3:SCREEN0,2:KEY OFF:X = 

120: Y=192: Z=22: TN=0: PUNT=0: A=l : B=2: 

DEFU3R1=?<H41 : DEFU3R2=8<H44 
LIO G0SUB1250 ' INSTRUCCIONES 

120 D=USR1(0):G0SUB990 " 3PRITES 



130 ' 
140 



PANTALLA DE JUEGO 



D=USR2<0) 

' BUCLE CENTRAL 

ON INTERVAL=1G0SUB580 
INTERVALON: IFTN=15 THEN INTERV 
r :60T01 180 : EL3E INTERVALON 
I F STRIG (G) THEN I NTERV ALOFF ¡ T=i 



250 GOTO 1i 

r>=42ANDT=<55> Al 1 
i)THENWW=lELSEWW=2 
270 ON WW GOTÜ 310,300 



290 
300 ' 



CANASTA 1 



G) THENC=C+2: LINE < 196, 23 
,BF:PSET< 196,30) , 1:PRIN 
G (G) =0THEN260: ELSE IFSTR 



FOR I = 1 92 T070STEP- 1 : PUTSPR I TEO , 
7, O: F0RJ=1T01 : NEXTJ: NEXT: PU 
(ITEO, (-32,-32) ,0 
320 FOR 1=70 TO 1 BOSTEP 1.5: PUTSPR I TE 1 
:, I) ,9,0:F0RJ=1T01:NEXTJ:NEXT:PU 
TSPRITE14, (-32, -32), O 
330 PUNT=PUNT+1 : TN=TN+1 : LINE ( 122, 21 
' '139,29) ,1,BF:PSET(1 14,21) , 1:PRIN 



?■ 1 3 



T# 1 , PUNT 

340 X=120:C=0:T=0!Z=24:LINEU96,: 
-(217,38) , 1 , BF: GOTQ 210 

350 ' 

360 ' FALLO 



FALLO DERECHA 



440 F0RI=70 T0200STEP2:X=X(i.5:F 
PRITEO, (X, I) ,9„0:F0RJ»1T05:NEXT; 
XT:PUTSPRITEO, ( -32, -32) , O; COTO f 
450 GOTO 540 



FALLO IZQUIERDA 



500 F0RI = 70 T02..0STEF-2:X = X 1.5:PUTS 
PRITEO, (X, I) ,7,0:F0RJ=1T05:NEXTJ:NE 
XT:PUTSPRITEO, ( -32,-32) , O: GOTO 540 



60 'NERVIOS 

70 ' 

30 Z=Z<3.3: IFZ >74THENZ=24: PUTSPRIT 
21, (Z,32) , 1,1: RETURN: ELSEPUT5PRITE 
1, (Z,32) , 1, 1: RETURN 

90 ' 

DO *. PANTALLA JUEGO 
10 ' 

20 DR AW "BM1 54, 40C8G25BM 155, 40G25R2 
'■' '5G;5R39II15NL9U75":FAINT<125, 100 
f-AINT (125, 145) , 3: PAINT < 125, 80) , 

DRAW'BMl 16, 63C9R22D22L22U22" : DR 



; ¡.■AW'ÍJM ¡.'I , 4OC0!"2r.D!1!O0,40F25" 
DR AW " bm 1 00 . 40C6R55D5SL55U35 " 
:> DRAW'BMl 00, 41C6R54D53L53U54" 

> L.INE<123, 140) <132, 140) . 1 
) LINE ( 103, 155) -(147, 155), 1 

> LINE (109, 156) - (147, 170) , 15, BF 

> LINE (O, 175) (256, 175) . 1 

) LINE (O, 176) -(256, 192) , 14, BF 
j LINE(80, 176)-(175, 192) ,4,BF 
j LINE (80, 176) - (81, 192) , 15, BF 

> LINE (175, 176)- (176, 192) , 15, BF 

) CIRCLE(127,92) , 12, 15, , . 1/3:CIRC 
! 127, 93) . 12, 15, , , 1/3:PUT3PRITE10. 
¡5,91) , 15,2:PUTSPRITE11, (131,91) , 



RIN" 



15,3:PUT3PRITE2, (119, 107) , 15,4 
760 DRAW " BM 1 20 , 39C8HSBM 1 35 , 39E8L 3 1 C 
6U14R31D1 4L30U 1 3R29D 1 3 ' 
770 PSET(122,21) 
780 LINE (O, 120) -<96, 150) , 13, BF 
790 LINE < 160, 1 20 ) < 255 , t 50 ) , 1 3 , DF 
800 DRAW " BMO , 70D5 1 BR32U50BR32D50BR: • 
2U50BM0 , 70R96BD 1 0L96BD 1 0R96BD 1 0L96B 
D10R96" 

310 DRAW'BMl 61 , 70D5 1 BR32U50BR32D50B 
R32U50BM161 , 70R96BD10L96BD10R96BD10 
L96BD10R96" 

820 LINE (21, 30) - (41,50) ,2,BF:LINE(4 

2,30) (57,50) , 10, BF: LINE (53, 30) -(78 

,50) .8, BF: LINE (41 ,20)- (41,50) , 15, BF 

: DRAW "BM40, 30U10" : LINE (57, 20) - (57,5 

O) , 15:DRAW"BM56,30U10":PSET(42,23) , 

1: COLOR 15:PRINT#1."0K" 

330 LINE (20, 20) ( 20 , 50 ) , 1 5 : DRAW " c 1 5 

bm20 , 30U 1 OBR 1 D 1 OBR 1 U 1 OBR 1 D 1 O " 

840 LINE (79, 20) -(79,50) ,15: DRAWBM7 

6 , 20D30BR 1 U30BR 1 D30BR 1 U30 " 

850 DR AW " bm 1 70 , 40NR45M2 1 0 . 20 " 

360 F0RJ=0T0160STEP160: H=J +34:0=J+3 

8:P=Ji-56:U=J+69: I=J<66 

870 DRAW"BM=J ; , 1 50NR5U30R7M+ 1 3, +25U 

25R5I)30L6M~14, -26D25" 

880 DRAW'BM=H; , 150NR4LJ30R4D30" : CIRC 
LE (O, 128) ,3. 15,4.71238#, (3. 14/2) ,2/ 
3 

890 CIRCLE(Q,128),12.15,4.7123S3#, ( 
3. 14/2) ,2/3 

900 CIRCLEÍO, 143) ,3, 15, 4. 712333#, (3 



no CIRCLEÍQ, : 



4, 15, A 



230;-)#, 



920 DRAW " BM=P ; , 1 50NM * 1 7 , 30R6M -i- 12, - 
23R3M+12, +23R6M- 17, -30L4BM=U; , 137M+ 
13, ODIi=I ; , 142M+18,0" 
930 NEXT 

940 CIRCLE(170,40) ,20, 15,0,3. 14/6 
950 PAINT (2, 145) , 15: PAINT (35, 149) , 1 
5: PAINT (41, 121) , 15: PAINT (41, 149) , 15 
:PAINT(58, 143) , 15:PAINT(70, 139) , 15 
960 PAINT(161. 145) , 15: PAINT ( 195, 149 
) , 15: PAINT ( 201 , 121 ) , 15: PAINT (201 , 14 
9) . 15: PAINT (213, 148) . 15: PAINT (230, 1 
39! , 15 

970 PSET < 23 , 55 ) , 1 : F'R I NT# 1 , " NERV I OS " 
:PSET(170,45) , 1 : PRINT#1 , "ANGULO" 
930 RETURN 



1030 F0RI=0TO4 
1040 A*="" 

1050 F0RD=1TD32: READA 
1060 A*=A*+CHRt(A) 
1070 NEXTD 

1030 3PRITE*(I)=A*:NEX1 




l:PRINT#l, "¿DESEAS ü 



O ' DATAS 
1120 ' 

O DATA 7,15,30,61.123,247,247,2 
39,239,247,247, 123,61,30, 15,7,224.2 
40, 120, 108, 222. 239, 239, 247. 247, 239, 
239,222, 1BB. 120,240,224 
1140 DATA 192,192,192,192,192,192,1 
92, 192, 192, 192, 192, 192, 192. 192, 192. 
192,0,0,0,0,0.0, O ,0,0,0,0, O ,0,0,0.0 
1150 DATAÍ92, 128, 192,224,94,81,48,2 
4,21,10,13,8, 12, 10,9, 13,0,0,0,0,0,2 
55,80, 136,5,6, 10, 145,96,96, 145, 138 
1160 DATA 1,0,1,3,61,193,66,164,20, 
8,24,40,200,200,40.24. 128, 128, 128,0 
0,0,0,0,0,0,0,0,0,0.0,0 
.170 DATA100,50,29,B,0,0,0,0,0,0,0, 
0,0,0,0,0,65. 162,84, 136,0,0,0,0,0,0 

,6,0,0,0,0,0 

1180 F0RI=1T030:PUTSPRITEI, ,0:NEXT: 
LINE (50,50)-- (200, 142) , 1 , BF: PSET (53, 
62),1:PRINT#1," TERMINASTE CON:":PS 
ET(53,79) , 1:PRINT#1,PUNT; :PRINT#1, " 
CANASTAS DE '■ : PSET (53, 95 ) , 1 : PRINTttl 
, TN; : PRINT#1 , " INTENTOS" 
.190 F'SET ( 56 , 1 12) , 1 : PR I NT# 1 , "CON UN 



1200 PSET (O, O) , 
TRO INTENTO?" 
1210 A*=INKEY* 

1 220 I FA*= " S " ORA*= " s " THENTN=0 : PUNT= 
O : Z =24 : Z 1 =60 : X = 1 20 : Y= 1 92 : D=USR 1 ( O > : 
GOTO 160 

1230 IFA*="N"0RA*="n"THEN5CREENO:C0 
LOR 15,4,4:END 
1240 SOTO 1210 



1250 ' 
1260 ' 



IONES 



1 280 L=6 : A*= " BASKET " : GOSUD 1 360 : A*= " 
POR" : GOSUB 1380: A*=" GUSTAVO JERONIMO 
": GOSUB 138C 

B1380: FORI=1T02000:NEXT 



="DESEAS INSTRUCCIONES ( 



L L=12:A*="DESE 
S/N)?":G0SUB13.60 

1 282 A*= I NKE Y* : I F A*= " " TUEN 1 282 

1283 IFA*="3"0RA*="s"THEN 1290 

1284 IFA*="N"ORA*="n"THEN 1341 

1285 GOTO 1282 

1290 L=2: A*=" INSTRUCCIONES: ":G03UB1 

360:A*="TE ENCUENTRAS EN EL ENTRENA 

MIENTD":G0SUB1370: A*="DE TU EQUIPO 

Y ESTAS" : G0SUEU370: A*="EN LA RONDA 

DE TIROS LIBRES. ": GOSUD 1370: 

1300 A*="DISPONES DE 15 INTENTOS PA 

RA ENCESTAR. " : GOSUB 1370 

1310 A*="PARA CONSEGUIR CANASTA" : GO 

SUB1370 

1320 A*=" DEBES PULSAR SPACE CUANDO" 
:G0SUB1370: A*="L0S NERVIDS ESTEN OK 
Y " : GOSUB 1 370 : A*= " MANTENERLO PULSAD 
O HASTA OEíTENER" : GOSUB 1370 
1330 A*="UN ANGULO ENTRE 44 Y 46 GR 
ADOS " : GOSUB 1 370 

1340 L=22:A*="PULSA UNA TECLA PARA 
SEGUIR" : GOSUB 1 370 : A*=INPUT* ( 1 ) 

1341 L=10: A*="ELIGE: ": GOSUB 1360: L=l 
2: A*=" 1- TECLADO" : GOSUB 1370: L=14: A* 
= " 2-JOYST I CK " : GOSUB 1 370 

1342 A*=INKEY*: IFA*=" "THEN1342 

1343 I FA*= " 1 " THENG=0 : GOTO 1 350 

1 344 I FA*= " 2 " THENG= 1 : GOTO 1 350 

1345 GOTO 1342 

1350 CLS : SCREEN2 : COLOR 1 5 , 1, 1 : GOTO 12 

O 

13Í.0 CLS 

1370 POKE&HF3B0, 38 
1380 M=(38-LEN(A*> ) / 
1390 IF M=0 THEN 1¿ 
1400 IF INT (M) < >MTHEN M1 = INT (M) : M2= 
M*2-M1:G0T01420 
1410 M1=M:M2=M 
1 420^ A*=STR I NG* (MI , 32) + A*+STR I NG* ( M 

1430 F0RI=1T0LEN(A*> 

1440 LOCATE O, L: PRINTRIGHT* ( A*. I ) ; 
1450 NEXTI:L=L+2 
1460 RETURN 




Programa 

FERRARI F-40 



JORDI HERRERA V 
PUJOL 
MSX-CLUB 
CONCURSO V 
MI NI PROGRAMA V 

" DEVANTERA DEL FERRARI F~* 



;, 4, 4:':,r:-í i r¡ ::OPEN"GRP! 



1 1 0 " 



120 COLOR E 
AS#1 

1 30 DRAW " BM 1 7 , 43R4E 1 R3E 1 RAE 1 R3E 1 R2U 
1E3U1E2U1E2U1E2U1 E2U 1E2U1E2U1 C3R5C 1 
R57F1R5F3D1F2D1F2D1F2D1F2D1F2D1F2D1 
:D 1 R2F 1 R3F 1R6F1 R3F 1 R4F 1 D24L 1 61L1G1 



L1G1L1: 
140 DRAWBM4' 
1R12U1H2L): 
1L55G1L5G: 
DRAW 



1E1R1E1R 
160 DRAW 
1E2U1E1U1E! 
E2U1E1U1E2I 
F1D1F2D: 



L1H1L1H1L1U2' 

;8R12E1R14E1R41F1R14F 
H2U 1 H2U 1 H2U 1 H2U 1 1 12U 1 H3L5H 
• DI G2D1 G2D 1G2D 1G2D1G2D1 G2' 
IM16.71R1F1R1F1R1F1R139E1R 
H9L151U10" 

41E3U1E2 



D1F2D1F1D1F2D1F2IHM1 34, 23 
1D1F2D1F1D1F2D2" 
DRAW " BM22 , 4 1 L 1 2H 1 USE 1 R 1 0r3D 1 F 1 
41R12E1U5H1L10G3D1G1D1G1 " 



1F1BM16 
180 PAII 
,0:PAINT 
,0:PAINT 



A1M ¡ ■ 



190 DRAWC1DM54, 37U2F1U1E1U1E1U1E1U 
1E1R1E1R14F1R1F1D1F1D1F1D1F1D2LU 
L14G1L1BM101 . 35U1E1U1E1U1E1U1E1R1E1 
R14F1R1F1D1F1D1F1D1F1D1F1D1H1L14H1L 
10BM62, 44R0G4M4BM1 1 1 , 44R0G4H4BM31 , 
£>R14D2G1D5LUH1L1U7BM54,76R7SD2G1D1 
G1L1G1L1G1L63H1L1H1L1H1U1II1U1" 
200 DRAW "BM1 38, 76R 14D7L1G1L1 1 U5H 1 U 1 
BM17,91D10F1R1F1R25E1R1E1U10L30DM13 
5.91D10F1R1F1R25E1R1E1U10L30C10BM89 
, 65R3D3L3U2R2D 1 L 1 " 

210 PAINT(65,30) ,1, 1 : PAINT ( 1 10, 30) 
1, 1: PAINT <Ó5, 45) , 1 , 1 : PAI NT ( 1 15, 45) 
1, 1: PAINT (40, 00) ,1, 1 : PAINT ( 100, 80 ) 
1, 1: PAINT (145, 80) , 1 , 1 : PAINT <30, 95) , 



1, 1: PAINT (150, 95) ,1,1 

220 DRAW " C7BM25 , 45R 1 0E 1 R 1 3D8G 1 L 1 2G 1 
L 9H1U7BM26,56R I 0E1R12D7G1L21H1U7BM1 
35 , 44R13F 1 R7D30 i LCÜ -I i L ! 21 ) 1 u?DM J 35 , 55 
R1 2F1R9DSG1L20H1U8" 

230 PAINT (35, 50) , 7, 7 1 PAINT <40, 60) ,7 
,7: PAINT (136, 56) ,7, 7: PAINT (136, 45) , 
7,7 

240 'TITOL DEL PROGRAMA 

250 DRAW " C2BM 176, 26R9D3L6D3R6D3L6D5 

L3U13BM188,2é>R9D3l .] ; 

L113BM200,26R8F1D1F1D2G1D1G1L1D1F1D1 

F 1 D2L3U 1 H 1 U 1 H 1 L 1 D4L3U 1 3BM204 , 29R1F1 

G1L1U1BM212,26RSF1D1F1D2G1D1G1L1D1F 

1 D 1 F 1 D2L3U 1 H 1 U 1 H 1 L 1 D4L3U 1 3BM2 1 6 , 29R 

1F1G1L1U1" 

260 DRAW " DM22 7 , 26R5T 1 D2F 1 D6F 1 D3L2H J 
U1H1L3G1D1G1 L2U3E I ! J6E 1 IJ2BM229 , 31R2D 
3L3U3BM233, 26RÜF l D 1 í 1 D2G 1 D 1 G 1 L 1 DI F 1 
D 1 F 1 D2L3U 1H1U1II1L1 D4L3U 1 3BM242 , 29R 1 
F1G) LUJ1EM250, 26R 1D3I 4L.¡ 2BM250 , 3 1 R4D 
91 1 1 J3C 1 2BM i ',, .. 43R78D4L78U3" 
270 P A I NT ( 1 77 , 27) , 2, 2s PAINT (189, 27) 
>• ■ 2 : F'A I NI « 20 :,27> , 2 , 2 : PA I NT ( 215, 27 
) ,2, 2: PAINT (228, 27) ,2, 2: PAINT (240, 2 
7) ,2,2: PAINT (251 , 27) , 2, 2: l"AINT<M 1 , 
32) .?,2:fAlNT<200,4R) , 12, 12 
280 DRAW " C9DM 1 76 , 56R20D5L 1 0D4R 1 0D5L 
10D10L10U23BM2O) .65R7RM 7U4BM214.65 
E 1 0R6D 1 OR J D5L 1 D7L6U9L 1 0U4BM220 , 66U2 
E2R1D4L3BM235, 55R1 2F2D20G2L 1 2H2U20E 
2BM239 , 63R3F J. D7G 1 L3H 1 U7 " 
290 PAINT(180,60) , 9, 9: PAINT ( 205, 67) 
,9,9: PAINT (220, 60) , 9,9: PAINT (238, 58 

300 'PERFIL DEL FERRARI F--40 
310 DRAW'CIBNO, 110R256RMP, 180R256": 
PAINT (1, 11 1) , 1, 1:DRAW"C15BM2, 141R29 
D9L29U8BM63, 141R29D9L29U3BM123, 14 IR 
27D91. 29U8 " : P A ¡ NT (3, 142) , 15, 1 5: PAINT 
(64, 142) , 15, 15:PAINT(124, 142) , 15, 15 
320 DRAW " C3BM256 , 136L2H1L1H3U1H1U1H 
1U2IUU2H1L16G1L11G1L1G1L1G1L1G1L2G1 
L1G1L1G1L8G1D1G1D6F2D1F1R1F1R2F1R2E 
3R 1 E2R 1 E4R 1 E3U9BM205 . 1 46R 1 3E t RESE 1 R8 
E1R9E1R2E1R1F1R1U2H1L2H1L1H1L1H1L2H 



1L1H2L1 8G5L 1G4L1 G2L 1 G2 " 

330 DRAW"bin205, 1281. í -'G 1 L2G1L3G1L1G1 

L1G1L1G1L1G1L1G1L1G1L1G1L1G3D1G1D1G 

1 D2G 1 D5G 1 D3F2R1F 1 R3F 1 R 1 1 USE 1 1 J2E 1 ! 1 1 [ 

4R2E 1 R6F 1 R 1 F 1 R 1 F3D 1 F 1 D3F 1 D3R5 1 U5E 1 U 

3E1U ¡ F.2" : PAINT (200, 129) ,8,8 

340 DRAW"C7BM165, 139R1E1R1E1R1F1L2G 

1L1G1L1F1R1E1R1BM172, 136R1U1R2U1R2D 

1L1G1L1G1BM162, 1 52R 1 E 1 R 1 E 1 R1F 1 D2G1L 

1G1L1G1H2U1BM170, 148R1E1R2F1D2L1G1L 

1G1L1U2H1": PAINT (165, 153) , 7, 7: PAINT 

350 DRAW " C 1 E(M 177, 159L13H1L1H3BM204, 
155R4 9BM238, 144D4G1D3G1D2G4BM227, 14 
8R5E 1 R9D4L 1 H 1 U2BM249 , 1 53R2BM246 ,157 
D3BM184, 134L1G1L1G1BM184, 140L1G1L.1G 

360 DRAW"C6BM233, 134D1G1D1G1D2G2D1R 
6E 1 U 1 E 1 1J3E 1 U2L5C 1 01)11 179,1 40R3D3G 1 L 1 
H 1 U2R2D2L 1 U 1 C8BM247 , 1 23R2F 1 R2F 1 R3 " : 
PAINT(234, 135) ,6,6 

370 DRAW"C15BM179, 161D2F1D1F4R2F1R3 
E 1 R.2E 1 R 1 E3U2E 1 U4BM253 , 1 66F2R 1 C 1 4BM 1 
87 , 1 53R4F4D5G4L4H1 L 1 H2U 1 H 1 1 12E 1 1 12F2R 
1":PAINT(170,160),14,14 
380 FÜR A=50T0 51 

390 COLORIS: PSET (A, 181 ) : PRINTttl , " - 

PRESS SPACE KEY' - " : NEXTA 

400 IF INKEY*=" "THEN GOTO 430 




Programa ■ 



■ Por Carlos Alcaraz. 



LOGOTIPOS 



10 CLS:CDLOR 15,1,1:KEY OFF 

20 LOCATE 13,10:PRINT "LOGOTIPOS" 

30 LOCATE H,13:PRINT "BARCELONA '9 

40 FOR T=0 TO 3000: NEXT 

50 OPEN"GRP: " AS#1 

60 CL3: COLOR 1 , 15, 15: SCREEN 2 

70 ' CABEZA 

80 DRAW "BM119,27C4E3R7FR]4FRFD17G2 
L5HL4HL2HLHL4HL3H2U 1 2 
90 PAINT (130,30) ,4 



20 DRAW "BM65,29C1 1FRF3RF1K 
REn'EEERrR'ERER:ERER:2TR'2ER:4FRl 1ER7ER3 
R2ER2EREREPC4RCnU4EU2¡-:3R 3FR2F2D12G 
2GDGDGDG2DG7 



L6GL 1 4HL4HL5HL2I IL3HL2HLHLHLH2LHLH3L 
H6LH2UHUI IUHUHUI ILIHUHLIHUHU3I IU4E2R 
1 40 PA I NT ( 80 , 60 ) , 1 1 
150 ' PIERNAS 

160 DRAW "BM32, 33C3UE4E2ER 1 0ER15FR8 
FP¡jrR5FR5FR5rR5FR5FR5FR5FR5FR5FR4FR 
2FR3FR3FR3FR2FR2FR2FR2FR2FR2FR2FR3r 
R2FRF2RFRF3DF 

170 DRAW "D2BGL2HLHL2H2LHLHLHLHLH2L 
I ILHLI ILI ILIILI ILtll 1 11.2111 I II 211! 2HL2I IL2HL2I I 




I IL3HL21 IL2HL. 21 II 21 IL! II I II. 21 IL 2HL3" 
180 DRAW "HL2HL2HL2HL2HL3HL3HL4HL4H 
L4HL4H 

190 PAINT (120, 100) ,3 
200 ' LEMA 

210 PRESET (34, 170) sPRINT #1,"XXV 
UEGOS OLIMPICOS" 

220 PRESET ( 35 , 1 70 1 : RR I NT #1,"XXV 

UEGOS OLIMPICOS" 

230 FOR T«0 TO 5000: NEXT 

240 CLS: COLOR 15, 1 , 1 : SCREEN O 

250 LOCATE 13, 10:PRINT "LOGOTIPO : 

: LOCATE 11,13:PRINT "AROS OLIMPICOS 

260 FOR T=0 TO 3000: NEXT 
270 CLS: COLOR 1 , 15, 15: SCREEN I 
280 CIRCLE < 

(128,66) , 
(42,66) ,4 
(42,66) ,2 
13,66) , 



) CIRCLE 
300 CIRCLE 
310 CIRCLE 
320 CIRCLE 
330 CIRCLE 
340 CIRCLE 
350 CIRCLE 
360 CIRCLE 
370 CIRCLE 
380 PRESET 
LONA "92" 
390 
L UNA 



, 30 , L 



PRESET (81,163):PRINT ' 



-i* V 



400 FDR T=0 TD 5000: NEXT 

410 CLS: COLOR 15,1,1: SCREEN O 

420 LOCATE 13, lOsPRINT "LOGOTIPO 3" 

430 LOCATE 14, 13: PRINT "MASCOTA." 

440 FOR T=0 TÓ 3000: NEXT 

450 CLS: COLOR 1,15, 15: SCREEN 2 

460 ' MASCOTA DE LOS JUEGOS 

470 ' CABEZA Y CARA DEL PERRO 

490 DRAW "DM93.74UIIUHU2HU2HU2HU9EU2 

DFDFDFDF2DF2DFDFDFDFDFR11D4GDGD2GDG 

DGDGDG 1 0LGLGL6LGL4 

470 DRAW "BM116.69L6HL3HL2HLH 

500 DRAW "BM90, 4GFD2FD2F 

510 DRAW " BM 1 20 , 46FDFD2FD 

520 DRAW " EtM 103, 42DFD2FDFD2F 

530 DRAW "BMÍ07,40BF2DFDFD 

540 Df.-AW "BM112,39D2F2DFDF2D 

5S0 CIRCLE (144,49) ,3, 1, ,. 1.4 

560 RAI NT (144,49) . 1 

570 ' CUERPO DEL PERRO 

500 DRAW "BM! ::5,74R17FR14ERERER2ER7 

GDG4FR5FR3FDGL 2GL4F2RT3D2L5I IL2IILHLH 

LH3L2GL4GL6GL6GL6D6FD14FD24R2ER9FR4 

Rr7nóG3L29H3 

590 DRAW "U20H3L 1 4G2D20G3L27M3UÍ.E3R 
2ER9FRU10HU20! IUI .01 IU I2LI I2LH2LH2LII2LH 
2L.H3LH4LHLGL-:.GL4II2UE2R2::RII2U2ERER4F 
R3l.l!U.J5ERFDriirD7.r O ?r2PFRr RFRFRFRrRFR 



LETIGMO 



UNIFORME DE I 
NE (93,74) < 
135,74) 
NE (35,71) (¡ 
45,87) 
NE (95,1 
-(110, 127) 



660 POR T=0 TO 5000: NEXT 

670 CLS: COLOR 15, 1 , 1 : SCREEN O 

600 LOCATE 10, O: PRINT " 1 . - VER LOGOT 

IPD 1" 

690 LOCATE 10,10:PRINT "2. -VER LOGO 
TIPO 2" 
700 LOCATE 10. 
TIPO 3" 
710 LOCATE 10, 
720 LOCATE 10 
730 IF A*="i." 



-VER LOGO 



14: PRINT' "4. -FIN" 
20: INPUT " ";A* 
GOTO 60 
GOTO 270 
750 IF Aí="3" GOTO 450 
760 IF A*="4" GOTO 770 
770 CLS:LOCATE 15,10:PRINT "FIN":LO 
CATE 18, 20: PRINT " (C) By Carlos Ale 
ai-az":FOR T=0 TO 4000: NEXT: CLS: END 




■ARTICULOS PERIODISTICOS , 



■Por Víctor Porcar» 



SPRITESEN 
CODIGO MAQUINA 



¿Cómo se utilizan los SPRI- 
ES desde código máquina? En 
" se da habida ci 



SPRITES. 

J or ejemplo, un juego que emplee más 
le cuatro sprites se hace injugable 
lebido a su lentitud; para resolver esto 
10 hay más remedio que acudir al 
:ódigo máquina. 
Debes saber definir < 



is, etc. Todo ello desde el 




Basic u 
SPRITE$(1) 
SPRITE, ett 

Basic es VPOKEAR unas determi 
das direcciones. Desde Basic podi 
mos VPOKEAR esas direcciones, 
de acuerdo podríamos ganar velocic__ 
pero muy poca, con lo que el problema 
de la lentitud se vuelve a repetir. 



TABLA ATRIBUTOS SPRITES 



Coordenada X 

6913 (&H1B01) 
6917 (&H1B05) 
6921 (&H1B09) 
6925 (&H1B0D) 
6929 (&H1B11) 
6933 (&H1B15) 
6937 (&H1B19) 
6941 (&H1B1D) 
6945 (&H1B21) 
6949 (&H1B25) 
6953 (&H1B29) 
6957 (&H1B2D) 
6961 (&H1B31) 
6965 (&H1B35) 
6969 (&H1B39) 
6973 (&H1B3D) 
6977 (&H1B41) 
6981 (&H1B45) 
6985 (&H1B49) 
6989 (&H1B4D) 
6993 (&H1B51) 
6997 (&H1B55) 
7001 (&H1B59) 
7005 (&H1B5D) 
7009 (&H1B61) 
7013 (&H1B65) 
7017 (&H1B69) 
7021 (&H1B6D) 
7025 (&H1B71) 
7029 (&H1B75) 
7033 (&H1B79) 
7037 (&H1B7D) 



N Spri 



7034 (&H1B7A) 7035 (&H1 

7038 (&H1B7E) 7039 (&H1 



50 



bla, debemos saber definir sprites (en 
ídigo máquina, claro). 
Existe en la VRAM una zona que se 
icarga de almacenar las definiciones 
: los sprites, ocupa 2 kbytes. Se 
icuentra de la dirección 14336 hasta la 
estos 2 kbytes caben 256 
s de sprites de 8 x 8 y 64 de 
16 x 16. Las definiciones se 



-SPRITES 8 x 8: Los primeros 8 
bytes (14336-14334) pertenecen a! spri- 
te número 0. Los siguientes 8 (14334- 
14352), pertenecen al sprite número 1, 




-224 (&HE0) para SPRITES 8 x 
ampliar. 

-225 (&HE1) para SPRITES 8 

-226 (&HE2) para SPRITES 16 
sin ampliar. 

-227 (&HE3) para SPRITES 16 
ampliados. 
Así pues sólo hace falta cambi 



ORG #030 

CALL #6F ;SCREEN 1 

LD DE, DEFINE ¡INICIO DE DEFINICIONES 



RET 



L BUCLE 



¡INICIO VRAM DEFINICIONES SPRITE NUMERO 
;VAMOS A LEER 8 "DATAS- 
CLAMAMOS A BUCLE 
;INICIO ATRIBUTOS 
¡INICIO VRAM ATRIBUTOS PLANO 2 
;VAMOS A LEER 4 "DATAS" 
¡LLAMAMOS A BUCLE 
¡VOLVEMOS AL BASIC 
;A=PEEK (DE) // READ A 
;VPOKE HL, A 



t, (DE) 
CALL #4D 
INC HL 
INC DE 
DJNZ BUCLE ;NEXT 

DEFB 255, 255, 255, 255, 255, 255, 255, 255 ¡DATAS 
DE DEFINICION DEL SPRITE (SE PUEDEN 
CAMBIAR DANDO OTRA FORMA) 
DEFB 96, 128, 0, 9 ¡DATAS ATRIBUTOS PLANO 2 



-SPRITES 16 x 16: Igual 
8 x 8, pero en vez de ocup; 
ocupan 32 bytes cada uno. A 



ciones 14336 hasta la 14368... 

Una vez sabemos definir, el uso de la 
tabla es muv sencillo. Se trata de elegir 
situar el sprite que 



m plano, y 



emplo: Supongamos que quere- 
poner en el plano 2, el sprite 
ero 0, en las coordenadas X = 128, 
Y=96, con color 9. 

El listado ensamblador de arriba 
podría ser un ejemplo de un programa 
que haría eso mismo. (Hay tantas 
formas de hacer un programa...). 

Si comprendes este programa (es 
muy fácil), podrás definir y posicionar 
cualquier SPRITE (por ahora de 8 x 8, 

le tamaño). 

¡CTJM0 CAMBIAR DE TAMAÑO? 

nador, los sprites son del tamaño 8 
sin ampliar. El VDP sabe que 




CALL #6F 
CALL #CC 
LD DE, DEFINI 
LD HL, 14336 
LD B, 32 
CALL BUCLE 
LD DE, DATOS 
LD HL, 6912 
LD B, 4 
CALL BUCLE 
CALL #B7 
RET C 
LD A,0 
CALL #D5 



¡COMPRUEBA SI SE HA PULSADO CTRLSTOP 
;LEE DEL STICK (0) 

;VA A TAL SITIO SI SE HA MOVIDO EN ESE LUGAR 

;IGUAL QUE 250 

IGUAL QUE 250 

¡IGUAL QUE 250 

¡CARGO HL CON POSICION Y 
¡A=VPEEK (HL) 
¡COMPARO CON 1 
¡SI ES 1 VOY A RETARD 
¡SI NO ES ASI LE RESTO 1 (SUB A, 1) 
¡VPOKE HL, A 

JR RETARD 



CP 1 

JR Z, ARRIBA 

CP 3 

JR Z, DERECHA 
CP 5 

JR Z, ABAJO 

CP 7 

JR Z, IZQUIERD 
JP OTRO 
LD HL, 6912 
CALL VPEEK 
CP I 

JR Z, RETARD 
ADD A, -1 
CALL VPOKE 
¡VOY A RETARD 
ABAJO: LD HL, 6912 

CALL VPEEK 
CP 175 

JR Z, RETARD 
ADD A, 1 
CALL VPOKE 
JR RETARD 

DERECHA: LD HL, 6913 

CALL VPEEK 
CP 239 

JR Z, RETARD 
ADD A, 1 
CALL VPOKE 
JR RETARD 

IZQUIERDO: LD HL, 6913 

CALL VPEEK 
CP 1 

JR Z, RETARD 

ADD, -1 

CALL VPOKE 
RETARD: LD B, 100 

VIC: NOP 

DJNZ VIC ¡VOY A VIC HASTA QUE B=0 

JP OTRO 
BUCLE: LD A, (DE) 

CALL VPOKE 

INC DE 

INC HL 

DJNZ BUCLE 

RET 

¡32 DATAS DE DEFINICION DEL SPRITE 

DEFB 127, 64, 95, 80, 87, 87, 87, 87 
DEFB 87,87,87, 87,80,95,64, 127 
ÍFB255, 1,125,5 117, 117, 117, 117 




ENSAMBLADOR, 



iPor Eduardo Martínez» 



MATH-PACK, 
MODULOS DE CALCULO 
RUTINAS DE SLOTS (IV) 



1 -Valores 
instantes jo: 



¡ siguientes p 
valores fijos qu 



2-Entrada de valores. Puede 
sde una rutina de C.M. o de t 

,aB ^rb!enp u r lenSU1 




VorC 6 a 

4-Operaciones MOVEMENT a uti- 
izar. Sería conveniente y en especial 
on las rutinas de MOVEMENT deci- 



5-DECISIONES. Cua 



LISTADO 2 

1 INPUT "NRQ."; D ' VARD 

2 X» 12.01 ' COX constante 

3 A=20 • COA constante 

4 RE=X+(D»SIN(A)) ' RE es DAC 

5 IF RE >30 THEN RExRE+12 ' 
C012 y COXC=comparación 

6 PRINT RE 1 DAC 

=1 



Trataremos del diseño de ruti- 
nas de cálculo prefijadas con 
decisiones e iniciaremos el estu- 
dio de las rutinas de slots y 
J i SUBROM. 



valor en VARD con la ayuda de MMF. 
En la línea 810 averiguamos el SENO 
de COA, que tiene el valor de 20, que 



r — a DAC. 
ar la multiplicación el resul- 
intendrá en DAC, seguida- 



ARG; í 
la línea 



lRG>DAC 



decimales. 

Con ello podemos obtener rutinas a 
medida, para un cálculo determinado. 



. ; ANALIZA SLOTS 



9707 FA1397 

970A 79 

970B CD9997 

970E CA3F97 

L 1824 



9711 



3 79 



FABO 
CD9997 
CA3F97 
79 

F684 
CD9997 
CA3F97 



9722 
9725 
9726 
9728 
972B CA3F97 



F6B8 



9731 CD9997 

9734 CA3F97 

9737 13 

9738 OC 

9739 79 
* FE04 
: 20C7 

973E C9 

973F 32CD97 



9746 87 

9747 87 

9748 87 

9749 87 
974A 1801 



MSX1-MSX2 

#9700 

DE,#FCC1 

c,#oo 



210 
220 
230 



300 
310 

320 RAM: 



JP Z , RAM 
JR MFCC1 
LD A,C 
□R #80 
CALL EXAM 
JP Z , RAM 
LD A,C 
□R #84 
CALL EXAM 



. EXAM 
Z.RAM 
A,C 
#8C 

. EXAM 



JR NZ.REPM 



; EXPTBL slot expandid! 
¡primer slot 



; cargar RAM 
¡activa exp.slot pl 



;act. exp. p2 



;es el ultimo 
; NG EXISTE RAM 
; carga pos. ramn 
;es negativo 



974F 87 

9750 87 

9751 87 

9752 5F 

9753 3ACD97 



ADD A, A 
LD E, A 



9759 
975A 
975C 
975F 
9760 
9762 
9765 
9766 
9767 



520 
530 
540 



CALL #0138 



; SLTATR SLOT 0-0 



¡rotac. derecha 



9769 5F 
976A 1600 
976C 21C1FC 
976F 19 

9770 7E 

9771 E680 
9773 B3 



9778 23 

9779 7E 
977A E60C 
977C B3 
977D F5 
977E 3ACD97 
9781 2640 
9783 CD2400 
9786 210098 
9789 110040 
97BC 01003E 
978F EDBO 

9791 Fl 

9792 2640 
9794 CD2400 
9797 FB 
979B C9 
9799 C5 
979A D5 
979B 210040 
979E 4F 
979F C5 
97A0 CDOCOO 
97A3 EEFF 
97A5 5F 

97 A6 Cl 

97A7 79 

97A8 C5 

97A9 CD1400 

97 AC Cl 

97AD 79 

97AE 43 



590 
600 
610 



E, A 
HL 
NC HL 
NC HL 
NC HL 
LD A, (HL) 
AND #0C 
□R E 



LD 



I, #40 



CALL #0024 

LD HL,#9800 

LD DE, #4000 

LD BC,#3E00 

LDIR 

POP AF 

LD H,#40 

CALL #0024 

El 

RET 

PUSH BC 
PUSH DE 
LD HL,#4000 
LD C, A 
PUSH BC 
CALL #000C 
XQR #FF 
LD E, A 



¡SLOT 
;HL=2 MSB 
; ENASLT 

¡bloque a enviar 



¡restablece normal 
; ROM MSX 
¡ ENASLT 



lireccion RDSLT 



;nro. SLOT fuer; 
;slot WRSLT 
¡guarda slot 



;slot RDSLT 
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LISTADO 3 





blador RSC 


2.0 MANHATTAN 


TRANSFER 








530 


; MODULO DE CALCULO 






540 










550 






D 1 80 




560 






2C67 




570 MMF: 






2C5C 




580 MFti : 






2C4D 




590 MAF: 






.Vh 6 




600 DECMULT 






269A 




610 DECAD: 






2C50 




620 MAM: 






2F5C 




630 XDECOMP 






DO 12 




640 PETIC: 






;.ü3A 




650 FRCDBL: 






29AC 




660 SIN: 






D0A2 




670 SALIDA: 






DI 80 


C3CDD1 


680 






D1B3 




690 VARD: 






D195 


4220 


700 COA: 






D197 


oooooooo 


710 






D1A3 






DEFB S<H42, SíH12, 1 




D1A6 


0000001:10 


730 






D1B1 


4212 


740 C012: 






D1B3 


OOOOOOOO 








D1BF 


4230 


760 COXC: 






D1C1 


OOOOOOOO 










CD12D0 


780 INIC: 






DI DO 


CD3A30 








D1D3 


2183D1 


800 






D1D6 




810 








2195D1 


820 






D1DC 


CD5C2C 


830 






D1DF 


CDAC29 












aso 






D1E5 


2183D1 


860 






D1E8 


CD5C2C 








D1EB 


CDE627 


880 






D1EE 


21A3D1 








D1F1 


CD502C 








D1F4 


CD9A26 












920 






D1-F7 


21BFD1 


930 








CD502C 


940 


CALL MAM 


•HL>ARG 


D1FD 


CD5C2F 


950 


CALL XDECOMP 


¡compara DAC y ARG 


D200 




960 




; valor de A ARGJfDAC 


D202 


2802 


970 


JR Z,SUMMAS 




D204 


1809 




JR RESULT 




D206 


21B1D1 


1000 SUmAS: 


LD HL,C012 




D209 


CD502C 




CALL MAM 


; HL ) ARG 








CALL DECAD 


; suma DAC+ARG 


D20F 


3E02 


1020 RESULT : 


LD A, 2 




D211 


CDA2D0 


1030 


CALL SALIDA 




D214 


C9 


1 040 


RET 


;o JP INIC 



TRUCOS DEL PROGRAMADOR 



Los interesados en par- MANHATTAN 
ticipar en esta sección, TRANSFER, S.A. 

Eueden enviar sus descu- Sección: Trucos del 
rimientos en programa- programador 
| ción a: Roca i Batlle, 10-12, bajos 

08023 Barcelona 



PROTECCION DE 
PROGRAMAR 

efectivo para proteger programas, aun- 
regutro"T teTvDp'"*™ ef ' que' si 

«ti desactivada" sTtend'ri qu" acceder 


VOLCADO DE 
PANTALLAS DE 
CARGA EN 
IMPRESORAS 
PLOTTER 

Casi todos los juegos tienen una 
pantalla que se ejecutará mientras éste 






directamente al PPI. Para ello se ha de 
realizar el siguiente poke: POKE 
&H3E0, &B1 100000. Después vendrá 
una instrucción SCREEN pan inickli- 
zar el ordenador en el modo de panta- 
lla que se desee. 


e "lNSTRLI P CCIO>JE^^^^ 

"VOLCAD" (Return?. Hecho esto se 
ejecuta con RUN. El programa pedirá 

panta C ll?d U e e prLnuc°óSen kque estás 


DOR DE PANTALLAS DE JUE- 
GOS" 

60 LOCATE 4,8- PRINT "INSER- 
TA EL JUEGO QUE CONTIENE" 

70 LOCATE 4,10: PRINT "LA 
PANTALLA A IMPRIMIR Y PUL- 




modo' rá?ico nte Pr ° CeS ° ^ 

m En° SCREEN 0... POKE &HF3E0, 

240: SCREEN 0 

En SCREEN 1... POKE &HF3E0, 
224: SCREEN 1 


puka PLÁY en drtagnwofonTá 
juego cargará normalmente hasta que 


80 LOCATE 8, 12: PRINT "PLAY 
EN EL CASSETE...": BLOAD 
"CAS:": GOSUB 250 

90 FOR 1 = 1 TO 2000: NEXT: CLS- 
SCREEN 0 




En SCREEN 2... POKE &HF3E0, 
224: SCREEN 2 

En SCREEN 3... POKE &HF3E0, 
232: SCREEN 3 

Jorge Cabezas 
Sant Joan Despí 


Se NOTA?Haya°gun^^ 

que este programa no funciona, ya que 

están protegidos. Puedes saberlo si 


100 LOCATE 8, 10: PRINT "Y PUL- 
SA UN TECLA...": A$=INPUT$ (1) 
120 GOSUB 250 

130 REM VOLCADO DE PANTA- 
LLA 

140 LPRINT CHR$ (&HlB)+"#" 
160 FOR Y=0 TO 192 




(Barcelona) 

ENCENDIDO DE 
CAPS POR SOFT 

La tecla de las mayúsculas (CAPS) se 


cuando cargas la pantalla ésta no apare- 
norma, este programa no funciona con 
los juegos en los que salen rayas en los 


170 FOR X=0 TO 250 

180 IF POINT (X, Y)=l THEN 

LPRINT "R3.0": GOTO 210 

190 LPRINT "R3.0" 

210 NEXT X 

220 LPRINT "R-753, -3" 




puede encender por software con: 
OUT &H8AA.55. Para apagarla por 
software también se hace con: OUT 


10 REM IMPRESORA DE PANTA- 
LLAS DE CARGA 

20 REM SOLO APTO PARA IM- 
PRESORAS PLOTTER 


230 NEXT Y 
250 RUN 

250 SCREEN 2: X=PEEK (64703!) + 
256 " PEEK (64704!): DEFUSR = X: 
U=USR(0): RETURN 

Joaquín Vidal - Senglar Cracker 
Sant Gregori 
(Gerona) 




&H8AA, 255. 

Angel Tárela Dobarro 
Santiago de Compostela 
(La Coruña) 


30 CARGA DE PANTALLA 

40 CLS: COLOR 15,1,1: KEYOFF: 

50 LOCATE 2,1 : PRINT "VOLCA- 





62 



i ¡COMPLETA TU HEMEROTECA DE PROGRAMAS!! 




¡SI TE HACE FALTA ALGUN NUMERO DE K&A PIDELO HOY MISMO! 



, Sí, deseo recibir hoy mismo los n 

>r lo que adjunto talón n" del Banco/Caja 

ptas al portador barrado. 



